﻿Imports System.Data
Imports CondorTravel.BC
Imports CondorTravel.BE
Imports CondorTravelUTIL.DL

Public Class ReporteServicios 
    Inherits PaginaBase


    Dim itemgridview As GridViewRow
    Dim itemgridviewSer As GridViewRow
    Dim casilla As System.Web.UI.WebControls.CheckBox
    Dim casillaSer As System.Web.UI.WebControls.CheckBox

    'Private codProveedor As Integer 'variable para guardar el codigo de proveedor seleccionado

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


        If Not Page.IsPostBack Then

            txtInicio.Text = "" : txtFin.Text = ""
            IniciliazaSesiones()
            CargarPais()
            CargarEstado()
            LimpiarForm()

            txtInicio.Attributes.Add("readonly", "readonly")
            txtFin.Attributes.Add("readonly", "readonly")

            cle1.EndDate = Date.Now
            cle2.EndDate = Date.Now
        End If


        If My.Request.Params("__EVENTTARGET") = "FuncionListServicios" Then
            CargarDatosServicio()
        End If

        If My.Request.Params("__EVENTTARGET") = "FuncionListProveedor" Then
            CargarDatosProveedor()
        End If

        'ListarProveedores()
        'ListarServicios()
    End Sub

    Public Sub CargarDatosServicio()

        If Session("BSCodigoServicio") = Nothing Then
            txtServicio.Text = String.Empty
        Else
            'txtServicio.Text = Session("BSCodigoServicio")
            txtServicio.Text = Session("BSNombreServicio")
        End If

    End Sub

    Public Sub CargarDatosProveedor()

        If Session("BPCodigoProveedor") = Nothing Then
            txtProveedor.Text = String.Empty
        Else
            'txtCodigoProveedor.Text = Session("BPRazonSocialProveedor")
            txtProveedor.Text = Session("BPRazonSocialProveedor")
        End If

    End Sub

    Public Sub IniciliazaSesiones()

        Session("BPCodigoProveedor") = Nothing
        Session("BPRazonSocialProveedor") = Nothing

    End Sub

    Sub LimpiarForm()
        txtServicio.Text = "" : txtInicio.Text = "" : txtFin.Text = "" : txtProveedor.Text = ""
        cboEstado.SelectedIndex = 0 : cboPais.SelectedIndex = 0 : cboCiudad.SelectedIndex = 0
    End Sub

    Private Sub CargarPais() 
        Dim listPaisBE As List(Of PaisBE) = New List(Of PaisBE)
        Dim objPaisBC As PaisBC = New PaisBC()

        Dim objPaisSeleccione As PaisBE = New PaisBE
        objPaisSeleccione.Codigo = 0
        objPaisSeleccione.Descripcion = "[Seleccione]"
        listPaisBE.Add(objPaisSeleccione)
         
        listPaisBE.AddRange(objPaisBC.ListarPais())

        cboPais.DataSource = listPaisBE
        cboPais.DataValueField = "Codigo"
        cboPais.DataTextField = "Descripcion"
        cboPais.DataBind()
    End Sub

    Private Sub CargarEstado()
        Dim listEstadoBE As List(Of EstadoDocBE) = New List(Of EstadoDocBE)
        Dim objEstadoBC As EstadoDocBC = New EstadoDocBC()

        Dim objEstadoSeleccione As EstadoDocBE = New EstadoDocBE
        objEstadoSeleccione.Codigo = 0
        objEstadoSeleccione.Descripcion = "[Seleccione]"
        listEstadoBE.Add(objEstadoSeleccione)

        objEstadoSeleccione.Tipo = "P"
        listEstadoBE.AddRange(objEstadoBC.EstadoListar(objEstadoSeleccione))

        cboEstado.DataSource = listEstadoBE
        cboEstado.DataValueField = "Codigo"
        cboEstado.DataTextField = "Descripcion"
        cboEstado.DataBind()
    End Sub

    Private Sub CargarCiudad(ByVal iCodigoPais As Integer)
        Dim listCiudadBE As List(Of CiudadBE) = New List(Of CiudadBE)
        Dim objCiudadBC As CiudadBC = New CiudadBC()
        Dim objPais As New PaisBE
        objPais.Codigo = iCodigoPais

        Dim objCiudadSeleccione As CiudadBE = New CiudadBE
        objCiudadSeleccione.Codigo = 0
        objCiudadSeleccione.Descripcion = "[Seleccione]"
        listCiudadBE.Add(objCiudadSeleccione)

        listCiudadBE.AddRange(objCiudadBC.ListarCiudad(objPais))

        cboCiudad.DataSource = listCiudadBE
        cboCiudad.DataValueField = "Codigo"
        cboCiudad.DataTextField = "Descripcion"
        cboCiudad.DataBind()
    End Sub

    Protected Sub cboPais_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles cboPais.SelectedIndexChanged
        If cboPais.SelectedIndex >= 0 Then
            CargarCiudad(cboPais.SelectedValue)
        End If
    End Sub

    Protected Sub btnNuevo_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnNuevo.Click
         Dim objUtil As New Funciones
        Dim strServicio, strFIni, strFFin, strEstado, strPais, strCiudad, strProveedor As String
        strServicio = "" : strProveedor = "" : strFIni = "" : strFFin = ""
        strEstado = "" : strPais = "" : strCiudad = ""
        If txtFin.Text.Trim <> "" And txtInicio.Text.Trim <> "" Then
            If CDate(txtFin.Text) < CDate(txtInicio.Text) Then
                Alerta("La fecha final no debe ser menor que la fecha inicial", False, String.Empty)
                Exit Sub
            End If
        End If
        If txtServicio.Text.Trim <> "" Then
            strServicio = objUtil.ReemplazarTexto(txtServicio.Text.Trim)
        End If

        If txtProveedor.Text.Trim <> "" Then
            strProveedor = objUtil.ReemplazarTexto(txtProveedor.Text.Trim)
        End If

        If txtInicio.Text.Trim <> "" Then
            strFIni = txtInicio.Text.Trim
        End If

        If txtFin.Text.Trim <> "" Then
            strFFin = txtFin.Text.Trim
        End If

        If cboEstado.SelectedValue.Trim <> "" And cboEstado.SelectedValue.Trim <> "0" Then
            strEstado = cboEstado.SelectedValue.Trim
        End If

        If cboPais.SelectedValue.Trim <> "" And cboPais.SelectedValue.Trim <> "0" Then
            strPais = cboPais.SelectedValue.Trim
        End If

        If cboCiudad.SelectedValue.Trim <> "" And cboCiudad.SelectedValue.Trim <> "0" Then
            strCiudad = cboCiudad.SelectedValue.Trim
        End If

        iFrm_Reporte.Attributes("src") = "../Reportes/RptServicios.aspx?strSer=" + strServicio.Trim + "&strPrv=" + strProveedor + "&strFIni=" + strFIni.Trim + "&strFFin=" + strFFin.Trim + "&strEsta=" + strEstado.Trim + "&strPai=" + strPais.Trim + "&strCiu=" + strCiudad.Trim
        'LimpiarForm()
    End Sub

    

End Class